home *** CD-ROM | disk | FTP | other *** search
/ Pornodelic / Pornodelic - Disc 2.iso / pc / data / script.cst / 00002_ÅwÇaÇfÇlçƒêðÅBÅx.ls < prev    next >
Encoding:
Text File  |  1998-03-05  |  1.2 KB  |  42 lines
  1. global gTotalSoundNum   --ﾃ…wﾃｧﾃ｡ﾃ･vﾃ｣ﾂｻﾃｪﾃｮﾃ③ﾃ…x
  2. global gSoundMuteFlg    --ﾃ…wﾃ欝ﾃ右ﾃ嘉ｬﾃ栄ﾃ円ﾃ嘉姪…[ﾃ曳ﾃ液ﾃ嘉｢ﾃ碓ﾃ③ﾃ…x
  3. global gSoundLoopFlag   --ﾃ…wﾃ欝ﾃ右ﾃ嘉ｬﾃ栄ﾃ嘉｣ﾃ…[ﾃ益ﾃ液ﾃ嘉｢ﾃ碓ﾃ③ﾃ…x
  4. global gBGM             --ﾃ…wﾃ欝ﾃ右ﾃ嘉ｬﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃｱﾂｺﾃ､iﾃｮ[ﾃｯﾅ禿ｪﾃｮﾃ③ﾃ…x
  5. global gMusCount        --ﾃ…wﾃ欝ﾃ右ﾃ嘉ｬﾃ栄ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ雨ﾃ右ﾃ嘉ｬﾃ曳ﾃ③ﾃ…x
  6.  
  7. on PlaySound gTotalSoundNum
  8.   -- ﾃｩgﾃ‡ﾂ｢ﾃｯﾂｾ -------------
  9.   -- PlaySound ﾃ｣ﾂｻﾃｪﾃｮ
  10.   --       ﾃ…wﾃ‡aﾃ‡fﾃ‡lﾃｧﾆ津ｪﾃｰﾃ③ﾃ…x
  11.   
  12.   if gSoundMuteFlg = 0 then
  13.     SoundCheck gTotalSoundNum
  14.   end if
  15. end PlaySound
  16.  
  17. on SoundCheck gTotalSoundNum
  18.   -- ﾃｩgﾃ‡ﾂ｢ﾃｯﾂｾ -------------
  19.   -- ﾃ敖ｨﾃｽﾆ’ or ﾃηｾﾂ絶\” ﾃ‡窶ｦﾃｭuﾃ‡ﾂ｢ﾃ‡ﾆ津‡ﾂｮﾃ‡ﾂ催③
  20.   --       ﾃ…wﾃ｣ﾂｻﾃ‡ﾂ敕嘉｣ﾃ…[ﾃ益ﾃ‡ﾅｽﾃ‡ﾃｾﾃ‡ﾃ暗③ﾃ…x
  21.   
  22.   if not soundBusy(1) then
  23.     if gSoundLoopFlag = 0 then
  24.       SoundNumLoop gTotalSoundNum
  25.     end if
  26.     puppetSound gBGM
  27.     updateStage
  28.   end if
  29. end SoundCheck
  30.  
  31. on SoundNumLoop gTotalSoundNum
  32.   -- ﾃｩgﾃ‡ﾂ｢ﾃｯﾂｾ -------------
  33.   -- SoundNumLoop ﾃ｣ﾂｻﾃｪﾃｮ
  34.   --       ﾃ…wﾃ｢ﾃｾﾃ､yﾃ‡ﾂ敕ｩﾃｼﾃ…Xﾃｯﾅ禿‡ﾂｶﾃ‡ﾃ暗③ﾃ…x
  35.   
  36.   put gMusCount +1 into gMusCount
  37.   if gMusCount = gTotalSoundNum+1 then
  38.     set gMusCount = 1
  39.   end if
  40.   set gBGM = "S" & string (gMusCount)
  41. end SoundNumLoop
  42.